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Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del CI 6 pubblicati su 
libri e riviste Jackson. 

In ogni numero un supergame originale ingle- 
se descritto nei minimi particolari ed in più 
una miriade di altri programmi scelti tra uti- 
lity, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un corret- 
to utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta allega- 
to alla confezione, ma anche personalizzarli 
servendovi dei listati e della descrizione pub- 
blicata alVinterno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vostra 
raccolta di programmi. 
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DEFENCE 

Forse avrete già visto questo gioco in una delle 
presentazioni televisive del C64, il cugino del C16. 
DEFENCE è un gioco molto popolare e questo é il 
motivo della scelta di questo mese. I 
combattimenti aerei sono quelli che attirano di 
più i giocatori e DEFENCE è proprio un videogioco 
di questo filone. 
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Tutti i sistemi di allarme 
sulla terra sono stati attiva- 
ti e il consiglio supremo dei 
popoli riuniti della terra ha 
affidato ad un solo pilota il 
compito di penetrare nelle 
difese del nemico e di colpi- 
re al cuore le forze degli in- 
vasori. Voi siete quel pilota 
e sarete alla guida di un ae- 
reo da combattimento forni- 
to di un numero illiminato 
di colpi per la mitragliatrice 
e di tre bombe a distruzione 
totale. Avete a disposizione 
tre aerei di questo tipo, tutti 
pronti al combattimento. 
L’aereo può star fermo in 
aria, può andare avanti 


(Shift), può anche salire di 
quota (A) o scendere (Z) e 
può invertire il moto (barra 
spaziatrice). Essendo un ae- 
reo del futuro, ha anche la 
possibilità di saltare ad 
un’altra posizione passando 
nell’iperspazio (tasto Com- 
modore). Naturalmente c’è 
la possibilità di servirsi del- 
le armi di bordo: sparare 
con la mitragliatrice (Re- 
turn) e sganciare le bombe a 
distruzione totale (CTRL). 
Gli aerei in dotazione sono 
molto manovrabili. Attenti 
però che, mentre si sale o si 
scende di quota, la mitra- 
gliatrice si inceppa e non 


spara. I costruttori dell’ae- 
reo purtroppo non sono riu- 
sciti ad eliminare questo di- 
fetto di fabbricazione prima 
che arrivassero gli alieni. 
D’altronde il tipo di aereo 
fornito è il migliore che si 
possa avere a disposizione. 


Avvio del gioco 

Battere LOAD e premere RE- 
TURN. Il gioco sarà caricato 
in memoria. Battere poi 
RUN seguito da RETURN, 
oppure premere SHIFT F3. 
Regolate i comandi di volu- 
me, contrasto, luminosità e 
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colore sul televisore per una 
visione gradevole. Fate poi 
partire il gioco premendo 
FI o F2, a seconda che si gio- 
chi da soli o in due. 


Scopo del gioco 

L’aereo deve riuscire a pene- 
trare nelle difese nemiche. 
Occorre distruggere i modu- 
li terrestri (lander) degli 
alieni prima che questi si 
trasformino, evitare o di- 
struggere i satelliti minati e 
totalizzare in del punteggio. 
Il bonus dipende da quanti 
moduli (la figurina con le 
gambette) si riesce a di- 
struggere prima di aver per- 
duto i tre aerei. 


Modalità di gioco 

L’aereo può sparare molto 
velocemente quando è fer- 
mo. Quando avanza, in un 
senso o nell’alto, con SHIFT, 


spara meno velocemente. 
Durante le manovre di spo- 
stamento in verticale, la mi- 
tragliatrice è bloccata. Si 
può sparare solo in avanti e 
la mira deve essere molto 
precisa per poter distrugge- 
re l’avversario. Gli oggetti 
alieni si spostano poi in mo- 
do abbastanza imprevedibi- 
le, per cui a volte è difficile 
evitare di essere colpiti. Se 
poi l’aereo si scontra con 
una montagna o si schianta 
al suolo, viene perduto. 
Quando ci si trova a mal 
partito è il momento di 
sganciare una delle bombe a 
distruzione totale. Ricordate 
però che ne avete solo tre in 
tutto e che queste distruggo- 
no solo gli oggetti che sono 
al di sopra della superficie 
terrestre. Quelli che ancora 
si trovano al riparo nelle 
profondità non possono es- 
sere colpiti. 

Altra azione che si può in- 
traprendere quando si è in 


difficoltà è quella di inverti- 
re il moto dell’aereo. La ve- 
locità dell’aereo impedisce 
però un arresto improvviso, 
e se stavate andando contro 
un pericolo, potrete ancora 
andarci a sbattere contro se 
non si inverte il moto per 
tempo. 

È da tener poi presente che i 
punti si accumulano solo 
colpendo i moduli terrestri 
degli alieni con la mitraglia- 
trice. Le bombe non fanno 
accumulare punti, così come 
non farà salire il vostro 
punteggio la distruzione de- 
gli altri oggetti. 

Buon divertimento allora, e 
occhio agli alieni! 
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TA" 

3 PRINT" {BLACK}M{SH 0 } { 6 CUR.GIUjT DOOO 
D1FF 3E00 { 2 CUR.GIU}X{2 CUR.GIU}G{SH 0 
} 5 " 

4 POKE 2 3 9 i 5 : P0KE1 319,1 9 :F0RT = 0T03 : P0KE1 3 
20 + T , 1 3 : NE XT : END 

5 SCNCLR: IM*= 1 5872 : IS*=3072 :V0L 8 

6 F0RY«=0T02 : H = -8* (Y>0 ) *Y 

7 L«=LEN(A$ (Y ) ) : IFL*=0THEN20 

8 Q*=0 : IFLEFT$( A$(Y) , 1 ) - »* "THENQ-3 : L-L-1 : 
A$(Y)-RIGHT$(A$(Y) ,L) 

9 COLORI ,1 : CHAR , 0 , 0 , A$ ( Y ) 

10 J = 0 :FORX = OTOL-1 : IFX>OTHENJ* J-*2 

11 V=PEEK ( IS+X ) 

12 FOR A*=0T06 

13 CR=PEEK( IM+V*8+A) 

14 FORB= 1 T05 

15 IF(CRAND2+B)=0THEN1 9 

16 COLORI ,INT(RND(0)*15)+2,INT(RND(0)*8) 

17 CX=7“B+X*8+J+Q:CY=A+Y*8+1 

18 CHAR,CX,CY,CHR$(209) :SOUND 1,900, .5 

19 NEXTB , A , X 

20 NEXTY 

21 F0RT=1 T05000 :NEXT 

2 2 COLORO , 2: COLORI ,1 : COLOR 4 , 1 5 , 6 : SCNCLR : 
P0KE5 6 , 63 : CLR 


Il mondo delle favole, così 
vasto e fantastico, è sicura- 
mente l’ambiente ideale per 
quei giochi, come “Casa stre- 
gata”, che vogliono risve- 
gliare il gusto dell’avventu- 
ra e del sorriso. Velocità e 
grafica ad alta risoluzione 
sono le caratteristiche di 
questo divertente svago 
adatto a tutte le età. 

Ti trovi ai piedi del mitico 
vulcano Yol, dove c’è la casa 
della strega malvagia. Il tuo 
compito è quello di salvare, 
prima che vengano uccisi, 
tutti i gatti gialli che la fat- 
tucchiera ha catturato per 
stregarli e utilizzarli nelle 
sue malefiche pozioni. 

Devi girare per le stanze del- 
la casa per raccogliere e 
portare in salvo gli amici fe- 
lini evitando gli spaventosi 
incontri con i fantasmi e i 
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pipistrelli (per la paura la- 
sci cadere il gatto che stravi 
trasportando). 

Ci sono anche dei demoni, 
veloci spiriti che si aggira- 
no minacciosi nei corridoi: 
il loro contatto è fatale. 
L’unica che manca è proprio 
la strega, che vedi volare 
sulla sua scopa illuminata 
dai pallidi raggi lunari: fai 
veloce, prima che torni e 
porti a termine il suo male- 
fico piano. 

IO 


100 REM* * ABBASSA IL TOP DELLA MEMORIA** 
110 POKE55 , 255 : POKE56 , 47 : CLR 
1 20 COLORO , 1 : COLORA , 1 : COLORI ,15,4 
130 V0L8: J7 = 1 :PRINTCHR$(8) 

1 HO SCNCLR SPRINT" {CUR .GIU }************{ R 
VS ON } LA CASA STREGATA { RVS OFF}***** 

******* H . 

150 FORICI T0500 : NEXT 

160 REM* * LEGGE ROUTINE IN L.M. PER TRASF 
ERI RE I CARATTERI IN RAM, E LA ESEGU 
E** 

170 A«819:FORI*OT017:READB:POKEA+I,B:NEX 
T : S YSA 

180 REM* *LEGGE I CARATTERI PER LA CASA** 

1 90 FORICI 2288 + 35 *8T01 2288 + 45*8 + 7: RE ADA : 

POKEI , A : NEXT 

200 REM* * LEGGE I CARATTERI PER LA STREGA 
** 

210 FORI* 1 2288 + 27*8T0 1 2288 + 31 *8 + 7 : RE ADA : 
POKEI, AsNEXT 

220 REM* * LEGGE I CARATTERI PER I PERSONA 
GGI** 

2 30 FORI* 1 2288 + 58*8T01 2288 + 62*8 + 7: RE ADA: 

POKEI, A:NEXT 

240 REM**INIZIALIZZAZIONI** 

250 SC=3072:CM=-1 024 

260 LM = 6 * 1 6- 1 

270 0*0:P = 1 :.Q = 40:DIMA(1 3) 

280 REM* *MOSTRA LE ISTRUZIONI** 

290 GOSUB900 

300 REM* *CHI EDE LA DIFFICOLTA’** 

310 GOSUB1130 

320 REM* * P ASS A AL NUOVO SET DI CARATTERI 
** 

330 POKE65298,192:POKE65299,240 
340 REM**DISEGNA LA CASA** 

350 G0SUB1 1 80 : RN = RN + 1 
360 CL=SC+859 

370 REM**VALUTA INPUT UTENTE** 

380 GETH6$ 

390 IFJOY ( J 7 ) *= 1 0RH6$ = " Y" THENJP = 1 :G0T0440 
400 IFJOY (J7)=30RH6$="H"THENJP=2: G0T0440 
410 IFJOY ( J 7 )*50RH6$ s =”B , ’THENJP = 3 :GOTO440 
420 IFJOY ( J 7 )*70RH6$ = " G"THENJP*=4 : G0T04 4 0 
430 JP«=5 

4 40 TL = CL : Z*=TL : ONJPGOSUB5 60 ,570,5 80,590, 
550 

450 CL = Z:S0UND1 ,500, .3:G0SUB600 
460 IFDFTHEN680 

470 REM* * P LOTTA IL GIOCATORE** 

480 POKETL , 32:POKECL,58:POKECM+CL,LM+4+C 
F 

490 REM**SCRIVE IL PUNTEGGIO E LA DIFFIC 
OLTA ' ** 

50 0 GOSUB880 : I FCC= 1 THE NF ORX= 1 T0 1 50 0 : NEXT 
: G0T0330 

510 REM* *MUOVE I DEMONI** 


520 G0SUB800 : IFDFTHEN680 

530 REM* *T0RN A A VALUTARE L'INPUT DEL Gl 
0CAT0RE** 

540 GOTO370 

550 RETURN : REM* * NESSUN A NUOVA DIREZIONE* 
# 

560 Z=Z-Q:RETURN :REM**DIREZIONE ALTO** 
570 Z*=Z + P: RETURN :REM**DIREZIONE DESTRA** 
580 Z-Z+Q: RETURN : REM* *DI REZ IONE BASSO** 
590 Z = Z-P : RETURN : REM* * DI RE ZI ONE SINISTRA 
* * 

600 REM**CONTROLLA COLLISIONE** 

610 IFPEEK(CL)*=440RPEEK(CL)=450RPEEK(CL) 
= 35THENCL*=TL : RETURN 

620 IFCFANDCL<SC+873ANDCL>SC+845THEN1 970 
630 IFCFANDPEEK (CL) =6 OTHENCL=TL: RETURN 
640 IFPEEK(CL)=60THENCF*=4:SOUND2,60,20 : R 
ETURN :REM**PRESO UN GATTO** 

650 IFPEEK(CL)=610RPEEK(CL)=59THEN1800 
660 IFPEEK(CL)=31 THEN1 91 0 
670 RETURN 

680 REM* *FINE DELLA PARTITA** 

690 P0KE65298, 1 96 : POKE6529 9 , 208 
700 SCNCLR:CHAR,10,1 ,"{ WHITE } UN ' ALTRA VI 
TTIMA !!" 

710 COLORI ,15, 4:PRINT:PRINTTAB(12)"{2 CU 
R . GIU JDIFFICOLTA ' "AA 

720 PRINTTABC IO)" {2 CUR . Gl U } LI VELLO " RN " P 
U N T I " S R 

730 PRINTTABC8)" {3 CUR . Gl U } GIOCHI ANCORA 
? { 2 SPC } ( { RVS ON } S { RVS OFF} 0 {RVS 0 
N } N { RVS OFF})" 

740 GETKE YA$ 

750 IFA$="S"THENCF=0 : G0T0780 
760 IFA$O"N"THEN740 

770 PRINTCHR$(9) : SCNCLR : PRINT"CI AO !":EN 
D 

780 RN=0 : SR=0 : DF=0 

790 PRINT" {2 CUR.GIU}" :G0T031 0:REM**TORN 
A A NUOVA PARTITA** 

8_0 0 REM* * ROUT INE DI MOVIMENTO DEI DEMONI 
# # 

810 I = INT(RND(0)*(AA*2) ) + 1 
820 TL=A(I) :Z=TL:POKEA(I) ,32 
830 ON INT(RND(0) *4 )+1G0SUB5 60 ,570,580,59 
0 

840 IFZ>SC+845ANDZ<SC+873THEN870 
850 IFPEEK(Z)=58THEN1 91 0 
860 IFPEEK(Z)=32THENA(I)«Z 
870 POKEA(I) ,31 :POKECM+A(I) ,LM+5: RETURN 
880 REM* * ROUTINE DI STAMPA PUNTEGGIO E D 
IFFICOLTA'** 

8 90 CHAR, 9 ,23., " {WHITE} LI VELLO" : PRINTRN"P 
UNTI"SR" {CUR. SIN} " ; : R E T U R N 
900 REM**ISTRUZIONI** 

910 PRINT" {CLR}SEI NELLA CASA DELLA STRE 
GA, LA QUALE" 


Utilizzo e strate- 
gia. 

AH’inizio, dopo le istruzioni, 
viene generata la casa me- 
diante un algoritmo per la 
costruzione dei labirinti: sa- 
rà questo l’ambiente in cui 
ti muoverai con il joystick 
(in porta uno) o con i tasti 
T, ’G\ ’H’ e ’B’. 

La parte inferiore della ca- 
sa, l’ultima riga, rappresen- 
ta la salvezza: i demoni non 
ci possono arrivare, e qui 
devi portare i gatti per sal- 
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varli dalla malvagia fattuc- 
chiera. 

Puoi portare solo un gatto 
per volta, e in tutto i felini 
sono 10: ogni volta che li 
salvi tutti, passi al livello 
successivo dove i demoni si 
fanno più intraprendenti e 
pericolosi e i pipistrelli e i 
fantasmi più numerosi. 

Puoi anche selezionare il li- 
vello di difficoltà (tra 1 e 6) 
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920 PRINT" {CUR .GIU} PER FORTUNA E’ FUORI 
- CHE VOLA SULLA SUA" 

930 PRINT" {CUR. GIU}SCOPA. HA CATTURATO D 
EI GATTI GIALLI E" 

9^0 PRINT" { CUR . GIU } VUOLE STREGARLI, MA T 
U PUOI INTERVENIRE {CUR.GIU}E SALVAR 
LI . " 

950 PRINT" { CUR . GIUlUTILIZZANDO IL JOYSTI 
CK IN PORTA 1" 

960 PRINT" {CUR.GIU}0 I TASTI »Y', »B», » 

G» E * H * , DEVI" 

970 PRINT" {CUR . GIU } RACCOGLIERE UN GATTO 
ALLA VOLTA E" 

980 PRINT" {CUR .GIU} PORTARLO IN FONDO AL 
QUADRO." 

990 PRINT" {CUR .GIU} MENTRE FAI CIO 1 , DIVE 
NTI GIALLO E I" 

1000 PRINT" {CUR'.GIUjPUNTI AUMENTANO PER 
OGNI GATTO SALVATO." 

1010 PRINTTAB ( 1 1 )" {CUR. GIU} {WHITE} PREMI 
UN TASTO"; 

1 020 GETKE YA $ 

1 030 COLORI , 1 5 , 4 : PRINT" {CLR}DOPO AVER SA 
LVATO { R VS ON } 1 0 { RVS OFF} GATTI, SA 
LI DI" 

1040 PRINT" {CUR. GIU}LIVELLO. SE INCONTRI 
UN PIPISTRELLO 0 UN" 

1050 PRINT" {CUR . Gl U } FANTASMA , TI SPAVENT 
I E LASCI CADERE IL { CU R . Gl U } GATTO 
CHE STAI PORTANDO." 

1060 PRINT" {CUR .GIU}LA CASA E' ANCHE INV 
ASATA DAI DEMONI," 

1070 PRINT" {CUR .GIUJSPIRITI CHE SI AGGIR 
ANO NEI CORRIDOI." 

1080 PRINT" {CUR . GIUJSE TI SCONTRI CON UN 
0 DI LORO FINISCE IL" 

1090 PRINT" {CUR .GIUJGIOCO ! LA RIGA PIU’ 
IN BASSO E» SICURA." 

1100 PRINT" { YELLOW} {CUR . GIUjPIU » ALTA E’ 
LA DIFFICOLTA», MAGGIORE E’" 

1110 PRINT" {CUR . GIU} IL PUNTEGGIO .": PRINT 

1120 RETURN 

1130 REM* * ROUT INE DI OTTENIMENTO DIFFICO 
LTA » ** 

1140 PRINT"{LT. BLUE} {CUR. Gl U } INSERISCI L 
A DIFFICOLTA’ (1-6)" 

1 1 50 GETKE YA$ 

1160 AA = VAL ( A$ ) : I F A A < 1 OR A A > 6 THE N 1 1 50 

1170 RETURN 

1180 REM* * ROUT INE DI DISEGNO DELLA CASA* 
# 

1190 COLORO , 1 : COLOR 4 , 1:COLOR1,15,4:SCNCL 
R : PRINT 

1200 PRINT" > {YELLOW} > .>.>>>>>>>>>>>>>> {B 
LUE}-, {YELLOW }>.>>>>>>>>>. >>>>>>>"; 

1 210 PRINT ">>>>>>>. >>.>>>>>>>{ BLUE } -## , { 
YELLOW}>. >>$$>. >>>>.>>>>>"; 


1220 PRINT" >>>>.>>>>>>>>>>.> {BLUE }-####, 
{ YELLOW} >>&[\ ’>>. >>>>>>>>" ; 

1230 PRINT" >>>>>>>.>>>>>>>> {BLUE}-###### 
, { YELLOW} >( ]* )>.>>>. >>>>>" ; 

1240 PRINT" >>>>>>> >>>.>>>> {BLUE }-####### 
//, { YELLOW }>*+>. >>>>>>>>>>" ; 

1250 PRINT" >>>>>. >>>>>>>>{BLUE}- ######## 
## , { YELLOW} >>>.>>>>>>> . >>" ; 

1260 PRINT" >>>>>>>>>>>>> {BLUE }-######### 
###, {YELLOW} >>>.>>>>>>>>>"; 

1 270 PRINT" >>>.>>>>>.>> {BLUE }-########## 
####, {YELLOW} > .>>>>>>.>>>"; 

12 80 P R I NT ">>.>>>>>>>>{ B L U E }-########## # 
#####, {YELLOW} >>>. >>>>>>>" ; 

1 2 90 PRINT" >>>>>>>>>> {BLUE }-############ 
######, {WHITE} >>>>>>>>>>" ; 

1 300 P R I N T ">>>>>>>>>{ B L U E }-############ # 
#######, {WHITE} >>>>>>>>>" ; 

1310 PRINT" >>>>>>>> {BLUE }-############## 
########, {WHITE} >>>>>>>>"; 

1 320 P R I N T ">>>>>>>{ B L U E }-############## # 
#########, {WHITE} >>>>>>>" ; 

1 3 30 P R I N T ">>>>>>{ B L U E }-############### # 
##########, {WHITE} >>>>>>" ; 

1 340 P R I N T ">>>>>{ B L U E }-############### # # 
###########{ WHITE} >>>>>>" ; 

1 3 50 P R I N T ">>>>>{ B L U E }################# # 
########### {WHITE} >>>>>>" ; 

1360 PRINT" >>>>> {BLUE} ### ####### ######## 
###########{ WHITE} >>>>>>" ; 

1 370 P R I N T ">>>>>{ B L U E }################# # 
###########{ WHITE} >>>>>>" ; 

1 380 P R I NT ">>>>>{ B L U E }############## # # # # 
###########{ WHITE} >>>>>>" ; 

1 390 PRINT" >>>>> { BLUE } ################## 
###########{ WHITE} >>>>>>" ; 

1400 PRINT" >>>>> {BLUE }################## 
########### {WHITE } >>>>>>" ; 

1410 PRINT" >>>>> {BLUE} ################## 
###########{ WHITE} >>>>>>" ; 

1 420 REM**COSTRUZIONE LABIRINTO* * 

1430 A ( 0 ) =2 : A ( 1 )=-80:A(2)=-2:A(3)=80:WL = 
35:HL=32:A=SC+846 

1 440 POKE A , 4 

1450 J=INT (RND (0 ) *4 ) : X= J 

1460 B = A + A(J ) :IFPEEK(B)=WLTHENPOKEB,J : PO 
KEA+AC J)/2,HL:A=B:G0T01 450 

1 470 J=(J + 1)*-(J<3):IFJOXTHEN1460 

1480 J=PEEK(A) : POKEA , HL : IFJ<4THENA=A“A (J 
) : G0T01 450 

1 490 FOR I = SC + 2 1 6TOSC + 85 6STEP4 0 : POKEI , 32 : 
POKE I + 7 » 32 : NEXT 

1500 F0RI = SC+1 40TOSC + 8 60STEP4 0 : POKEI , 32 : 
NEXT 

1510 F0RI = SC + 372T0SC + 852STEP40 : POKEI , 32 : 
POKE I + 1 5,32: NEXT 

1 52 0 F0RI = SC + 489T0SC + 849STEP40: POKEI, 32 : 
POKE I + 2 1 , 32 : NEXT 


se non ti piacciono le cose 
semplici! 

Sei di fronte ad un gioco che 
ti mostra, in modo diverten- 
te, le vaste capacità grafiche 
del tuo computer mediante 
la definizione di nuovi e 
simpatici caratteri. Non riu- 
scirai a star lontano a lungo 
da “Casa stregata”: è un gio- 
co... magico! 

Tratto da “Il libro dei giochi 
per Commodore 16 e Plus/4”. 
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1530 FORI-SC+372TOSC+387 :POKEI , 32 :NEXT 
1540 FORI*SC+489TOSC+51 0 : P0KEI , 32 : NEXT 
1 5 50 FORI*SC+687TOSC+71 2 : POKEI , 32 : POKEI + 
160,32: NEXT 

1560 REM**POSIZIONA I FANTASMI** 

1570 F0RI«PT03*AA 
1580 X*INT(RND(0)*680)+SC+40 
1 590 BL«0 : GOSUB1 760 : IFBLTHEN1 580 
1600 POKEX ,59 :POKECM+X , LM + 2 :NEXT 
1610 REM**POSIZIONA I PIPISTRELLI** 

1620 F0RI-PT03^AA 
1630 X*INT(RND(0)*680)+SC+40 
1640 BL«0 : G0SUB1 760 : IFBLTHEN1 630 
1650 POKEX, 61 :P0KECM+X,LM+6:NEXT 
1660 REM**POSIZIONA I GATTI** 

1 670 CC-1 1 :F0RI«PT01 0 
1680 X*INT(RND(0)*680)+SC+40 
1 690 BL«=0 : G0SUB1 760 : IFBLTHEN1 680 
1700 POKEX, 60 :P0KECM+X,LM+8 :NEXT 
1710 REM**POSIZIONA I DEMONI** 

1720 F0RI*PT0AA*2 
1730 X*INT(RND(0)*680)+SC+40 
1740 IFPEEK(X)<>32THEN1 730 
1 750 POKEX, 31 : POKECM + X ,LM + 5 : A ( I ) *=X : NEXT : 
RETURN 

1760 IF(PEEK(X)<>32)OR(PEEK(X+P)<>32ANDP 
EEK (X+P )<>35)THENBL*1 
1770 IF(PEEK(X-P)<>32ANDPEEK(X-P)<>35)0R 
(PEEK(X + Q)032ANDPEEK(X + Q)035)THEN 

BL*= 1 

1 7 80 IF(PEEK(X-Q)<>32ANDPEEK(X-Q)035)TH 
E NBL* 1 
1790 RETURN 

1800 REM* *CONTATTO CON UN PIPISTRELLO 0 
UN FANTASMA** 

1810 IFCF*0THEN1 850 
1820 X=INT(RND(0)*680)+SC+40 
1830 IFPEEK(X )<>32THEN1 820 
1840 POKEX, 60: POKECM+X , LM + 8:CF = 0:SR*SR-2 
*AA+2:IFSR<0THENSR=0 
1 850 POKETL , 32 : POKECL , 58 : POKECL + CM , LM + 2 
1 860 F0RI*8T00STEP--1 : SOUND 1 ,300,15:V0LI: 
NEXT 

1870 FORI*ITO400:NEXT:VOL8 
1880 TL*CL : Z*TL : ONINT(RND ( 0 ) * 4 ) + 1 GOSUB56 
0,570,580,590 

1890 CL=Z :SR=SR-AA+2 : IFSR<0THENSR=0 
1900 G0T0600 

1910 REM** CONTATTO CON UN DEMONE** 

1 920 POKETL , 32 : POKECL , 5 8 : POKECL + CM , LM + 5 : 
DF= 1 

1 930 FORI-1 T04 : SOUND 3 ,600,30: F0RX=1 T0600 
: NEXT 

1940 IFI=1 0RI=3THENP0KECL , 31 :GOTO1960 
1950 POKECL, 58 

1960 FORX= 1 T0200 : NEXT : NEXT : FORX* 1 T0500 : N 
EXT : RETURN 

1970 REM**SALVATAGGIO DI UN GATTO** 

1980 X*SC+985:P0KEX-CC,60:P0KECM+X-CC,LM 


+ 8:C0C01 :SR*SR+1 0*AA*2:CF«0 
1 990 S0UND2 , 60 , 1 0 : RETURN 

2000 REM* *DATI UTILIZZATI DAL PROGRAMMA** 
2010 DATA 1 60, 0,1 85, 0,208, 153,0,48,185,0, 
209,153,0,49,200,208,241,96 
2020 DATA25 5, 255, 255, 25 5, 25 5, 25 5, 25 5, 255 
2030 DATA0,0,0,0,0, 1 5,63,255 
2040 DATAO, 0,0, 0,0, 240, 252, 255 


2050 DATAI ,1,3,3 

,7,7, 

7,7 

2060 DATA 1 28 , 1 28 

,192, 

1 92 , 224 . 224 . 224 , 224 

2070 DATA7 ,7,7,7 

,3,3, 

1,1 

2080 DATA224 , 224 

, 224, 

224,192,192,128,128 

2090 DATA255 , 63 , 
2100 DATA255 , 252 

15.0, 

,240, 

0,0, 0,0 

0,0, 0,0,0 

2110 DATAI 28,192 

.22*1. 

240,248,252,254,255 

2120 DATAI .3,7.15,31 , 
2130 DATA255.255.255, 

63,127,255 

255,250,246,244,224 

2140 DATA255 , 255 

,191 , 

63,15,15,7,63 

2150 DATA240 ,249 
2160 DATA255 , 255 

, 240 , 
,127, 

228,0,252, 255,255 

35,1, 1 1 2,63,255 

2170 DATAO, 102,0,24,0 

,0,28,0 

2180 DATA5 6 ,84,56,1 6, 
2190 DATA62, 42,62,28, 

124,186,40,108 

28,28,60,120 

2200 DATA 4 0 , 1 24 , 

85,125,57,57,61 ,127 

2210 DATAO ,16, 124,254 

,214,130,0,0 

2220 DATAO, 0,0,0 

,0,0, 

o 

o 



TABELLA DI CONVERSIONE 

{HOME } . . . . 

HOME 


{ CLR } 

PULIZIA SCHERMO 

{CUR.SU } 

.CURSORE IN ALTO 

{CUR .GIU} 

CURSORE IN BASSO 

{CUR . DES } 

CURSORE A DESTRA 

{CUR . SIN } 

CURSORE A SINISTRA 

{SPC } 

SPAZIO 

{ RVS ON } 

REVERSE ON 

{ R VS OFF} 

REVERSE OFF 

{FLASH ON } 

FLASH ON 

{FLASH OFF } 

FLASH OFF 

{ INST } 

INSERT 

{ BLACK } 

COL. 

NERO (CTRL+1) 

{ WHITE } 

COL . 

BIANCO (CTRL+2 ) 

{RED } 

■ COL. 

ROSSO (CTRL+3) 

{ C YAN } 

COL . 

CIANO (CTRL+ 4 ) 

{PURPLE } 

COL. 

PORPORA (CTRL+5) 

•{GREEN } 

COL. 

VERDE (CTRL+6) 

{ BLUE } 

COL. 

BLU (CTRL+7) 

{ YELLOW} 

COL. 

GIALLO (CTRL+8) 

{ORANGE } 

COL. 

ARANCIO (CBM+1 ) 

{ BROWN } 

COL . 

MARRONE. (CBM+2 ) 

{ YL-GREEN } 

COL. 

GIALLO-VERDE (CBM+3) 

{ PINK} 

COL . 

ROSA (CBM+4) 

{ BL'-GRN } 

COL. 

BLU-VERDE (CBM+5) 

{ LT . BLUE } 

COL . 

BLU CHIARO ( CBM + 6 ) 

{ D . BLUE } 

.COL. 

BLU SCURO ( CBM+7 ) 

{LT. GREEN} 

COL . 

VERDE CHIARO (CBM+8) 


Guida 
all'input 
CI 6 

Norme per la 

battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift” e “CBM”, sono codifi- 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori- 
cino è codificato con >SH 
S <. Il numero dentro le pa- 
rentesi indica le volte che il 
tasto va premuto. 
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BOX 



Scopo del gioco 

Lo scopo del gioco è quello di 
aiutare un simpatico omino 
a disinnescare le bombe pri- 
ma che il tempo a disposi- 
zione finisca, evitando e su- 
perando le varie difficoltà 
che via via incontra. Dopo 
aver fatto partire il pro- 
gramma, il video si riempirà 
di scatole marroni (da cui il 
nome di Box del gioco) e 
inoltre di teschi mortali, 
bandierine ed una bomba. 
Sull’ultima riga è riportato 
il tempo a disposizione rap- 
presentato da una fascia 
viola che man mano dimi- 
nuisce. In alto il punteggio 
della gara (Score), gli uomi- 
ni rimasti (Life) ed il pun- 
teggio massimo raggiunto 
(Record). Sulla seconda riga 
del video vi sono invece del- 
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100 POKE56,60:POKE52,60:POKE55,0:POKE51 , 
0 

110 T = 0 : FORI* 1 OOOTOI 030:READA 
120 P0KEI ,A:T»=T + A:NEXT 
130 IFT=3288THEN1 50 

HO PRINT" {CLRjERRORE NEI DATA ! " : EN D 
150 SYS1 000 :F0RI-1 5360T01 5839 
160 READA : P0KEI , A: NEXT 

170 F0RI-1 586MT01 5871 : RE ADA : P0KE I , A : NEXT 
180 VOL8:COLOR4 , 1 1 rCOLORO, 1 1 
500 P0KE65298,0:P0KE65299,60 
520 TRAP60000 : PRINT” { CLR } " 

600 CHAR, 1 0,2," {3 CBM P } { 5 SPC}{2 CBM P} 
{4 SPC } { CBM P } { 4 SPC } { CBM P } " 

610 CHAR, 10,3»" {CBM H } { 2 SPC}{SH M } { 3 SP 
C } { SH N } { 2 SPC } { SH M}{3 SPC}{2 SH M} 
{2 SPC} {2 SH N}" 

620 CHAR, 10,4, "{CBM H}{SH 0}{SH P}{CBM N 
} { 3 SPC } { CBM H } { SH 0 } { SH P}{CBM N } { 4 
SPC} {2 SH M } { 2 SH N} " 

630 CHAR , 1 0 , 5 , " {CBM H } { 2 CBM Y}{SH N } { 3 
SPC} {2 CBM H } { 2 CBM N}{5 SPC}{SH M}{ 
SH N}" 

640 CHAR, 10, 6, "{CBM H}{2 SPC}{SH M } { 3 SP 
C } { 2 CBM H } { 2 CBM N}{5 SPC}{SH N}{SH 
M}" 

650 CHAR, 1 0,7," {CBM H}{SH 0}{SH P}{CBM N 



} { 3 SPC } {2 CBM H } { 2 CBM N } { ^4 SPC}{2 
SH N} {2 SH M} " 

660 CHAR, 10, 8, "{CBM H}{2 CBM Y}{SH N}{3 
SPC } { SH M } { 2 CBM Y}{SH N } { 3 SPC}{2 S 
H N } { 2 SPC } {2 SH M}" 

670 CHAR, 10, 9, "(3 CBM Y } { 5 SPC}{2 CBM Y} 
{4 SPC } { CBM Y } { 4 SPC } { CBM Y } " 

680 CHAR, 1 8,11 , " B Y " 

690 CHAR, 1 3, 1 3, "ANGELO MOTTA” 

700 CHAR, 6,1 8, "PREMI <RETURN> PER INIZIA 
RE" 

710 RESTORE 13000 
720 D0UNTILZ$=CHR$(1 3) 

730 READAA,BB:IFAA«=0THENRESTORE1 3000:GOT 
0730 

740 CC=INT(RND(0)*16)+1:DD=INT(RND(0)*7) 
+ 1 

750 C0L0R4,CC , DD : COLORO , CC , DD 
760 S0UND1 , AA , BB : GETZ$ : LOOP 
770 COLOR 4 , 1 1 :COLORO, 1 1 
990 SC - 0 : ME -3 : SK* 1 0 : V-4 : BF-0 
1 000 XX-0:YY-0:L«0:R=0:BD-0:B«31 52 
1010 PR INT"{ BLACK } {CLR} SCORE "SC: CHAR, 1 6, 
0, "LIFE" :PRINTME: CHAR, 25,0, "RECORD" 
: PRINTHS 

1015 CHAR, 0,24," {RVS 0N}TIME-{RVS OFF}" 

1 020 FORI-4O37TO4071 : POKE I , 0 : POKE I- 1 02 4 , 
4 : NEXT 

1 030 Q«= 3 1 12:P0KEQ,63:P0KEQ-102 4,3 
1050 F0RI-0T01 0:F0RJ«31 52+I*80T031 90+1*8 
0STEP2 : POKE J , 42 :NEXTJ , I 
1060 F0RI-0T01 0: FORJ-31 53+I*80T031 91 +1*8 
0STEP2 : POKE J , 43 : NEXT J , I 
1 0 70 FORI-OTOI 0:F0RJ=31 92 + 1 *80T032 30 + 1 * 8 
0STEP2 : POKEJ , 44 : NEXTJ , I 
1080 F0RI-0T01 0 :F0RJ*31 93+I*80T03231 +1*8 
0STEP2 : POKEJ , 45 : NEXTJ , I 
1 0 90 FORI -21 2 8T0300 7 : POKE 1 , 2 : NEXT 
1100 BT-34:FORI-1 TOSK 

1110 SK-INT(RND(0)*20) :SY-INT(RND(0)*1 0) 
: IFSX-0ANDSY-0THEN1 t 1 0 
1120 D-31 52+SY*80+SX*2 :E-D-1 024 
1130 POKED ,38:POKED+1 , 39 : POKED+ 40 , 40 : POK 
ED+41 ,41 

1140 POKEE , 0 : POKEE+1 , 0 : POKEE + 40 , 0 : POKEE + 
41,0 

1150 NEXT :FORI=1TOINT(RND(0)*6) 

1160 SX-INT(RND(0)*20) :SY-INT(RND(0)*10) 

: IFSX-0ANDSY-0THEN1 1 60 
1170 D-31 52+SY*80+SX*2 :E-D-1 024 
1 180 POKED ,27 : P0KED+1 , 28 : POKED+ 40 , 32 : POK 
ED+41 ,29 

1190 POKEE , 2: POKEE+1 ,0:P0KEE+41 ,0 
1200 NEXT 

1210 SX-INT (RND(0)*20) : SY-INT ( RND ( 0 ) * 1 0 ) 

: IFSX-0ANDSY-0THEN1 21 0 
1220 C-31 52+SY*80+SX*2 :E=C- 1 024 


le “molle” il cui utilizzo ver- 
rà illustrato in seguito. 


Tattica 

Il nostro omino può muo- 
versi unicamente sulle sca- 
tole che, man mano che pas- 
sa, raccoglie. Deve evitare i 
teschi (fortunatamente que- 
sti sono fermi), raccogliere 
le bandiere, cercare di non 
farsi catturare dal folletto 
delle scatole e raggiungere 
la bomba. Disinnescato l’or- 
digno, ne comparirà uno 
nuovo in un altro punto del 
video ed avrete a disposizio- 
ne una nuova dotazione di 
tempo, ma, attenzione, le 
scatole saranno quelle rima- 
ste, per cui state bene atten- 
ti a come vi muovete, in mo- 
do da non rimanere intrap- 
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polati e quindi non potervi 
più spostare. In questo caso, 
ed anche quando il folletto 
sta per raggiungervi, ecco 
che potete utilizzare le mol- 
le con le quali salterete in 
un’altra parte del campo; il 
salto non è controllabile e 
quindi esiste il rischio di fi- 
nire anche sopra ad un te- 
schio. All’inizio avrete a di- 
sposizione una molla sol- 
tanto e, ad ogni bandierina 
raggiunta, ne guadagnerete 
una. 

Dopo aver disinnescato tre 
bombe, passerete alla fase 
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1 2 30 POKEC , 4 6 : POKEC + 1 , 4 7 : P0KEC+40 , 5 8 : POK 
EC + 41 ,59 

12 40 POKEE , 0 : POKEE + 1 , 0 : P0KEE+40 , 0 : POKEE + 
41,0 

1 24 5 RESTOREI 1 O'OO : AA«1 : DOUNTILAA«=0 
1246 READAA,BB:SOUND1 ,AA,BB:LOOP 
1250 HY=SY:HX=SX:IFBFTHEN1 320 
1 2 60 SX«INT(RND(0)*20) :SY=INT(RND(0)*1 0) 
1 270 IFSX*2 + SY*80«=YYOR(SX«=HXANDSY*=HY)THE 
N 1 2 60 

1280 D-31 52+SY*80+SX*2 :E = D- 1 024 
1 2 90 POKED , 30 : POKED + 1 ,31 :P0KED+40,44:P0K 
ED + 41 ,45 

1 300 POKEE, 0:P0KEE+1 , 0 : POKEE + 4 0 , 2 : POKEE + 
41,2 

1 31 0 BX*=SX : B Y*S Y 

1 320 J*=XX + B:POKEJ , 33 : POKE J+ 1 ,35:P0KEJ+40 
, 36 : POKEJ + 41 , 37 

1330 J-YY + B-1024: POKEJ , 6 : POKEJ+1 , 6 : POKEJ 
_ + 4 0 , 6 : POKE J + 4 1 ,6 
1 50 0 " GH = R : GETZ $ 

1510 IF(YY-L/2)/80OINT( ( YY-L /2 ) / 80 ) THEN 
L«(YY-( (INT(YY/80) )*80) )/2 
1520 IF(Z$- M T"0RJ0Y(2) >1 27) ANDQ>31 1 1 THEN 
POKEQ , 32 : Q«=Q- 1 : GOSUB90 0 0 : R*=L : GOTOI 6 
80 

1 530 I F Z $ < > " "THEN1550 
1 540 GE TZ $ : I FZ $ < > " "THEN1540 
1 550 X* 0 : R = L 

1 560 IFZ$«= U Z"THENR = R-1 :X = -2 

1570 IFZ$=" ; "THENX=-80 

1580 IFZ$= n /" THENX=80 

1 590 IFZ$="X"THENX=2 : R = R+1 

1600 IFR<0THENX=38 

1610 IFR>1 9THENX=-38 

1620 B=3152:YY*=YY + X:XY = PEEK(YY + B) 

1 630 IFXY = 300RXY*=380RXY = 420RXY = 270RXY = 46 
THEN 1 660 
1640 Y Y= Y Y-X 
1650 R=GH : GOT02000 
1 660 L=R : IFL<0THENL=1 9 
1670 IFL> 1 9THENL=0 

1680 R«L:J«XX + B:POKEJ,32.:POKEJ+1,32sPOKE 
J + 4 0 , 3 2 : POKEJ + 41 , 32 : XX = YY 
1 690 J= YY+B : BE*=0 

1 700 IFXY = 30THENPOKEJ + 40 , 36 : POKEJ+41 ,37: 
POKEJ-9 84 , 6:POKEJ-983,6:BE=1 : GOTO 30 
00 

1710 Z $ = " " 

1 72 0 IFXY = 38THENPOKEJ , 33 : POKEJ+1 , 35 : POKE 
J-1 024 , 6 : POKEJ-1 023 » 6 : GOT0300 0 
1 730 SC = SC+ 1 0 : PRINT" {HOME } { 6 CUR.DES}"SC 
1740 J*=YY + B:POKEJ,33: POKEJ+1 ,35:POKEJ + 40 
, 36 : POKE J + 4 1 , 37 

1 75 0 E = J-1 024 : POKEE , 6 : POKEE+1 ,6:P0KEE + 40 
, 6 : POKEE + 4 1 ,6 
1 760 IFXY027THEN1 800 


1 770 SOSC + 250 : PRINT" {HOME} {6 CUR.DES}"S 
C 

1780 Q = Q+1 :POKEQ,63:POKEQ-102M,3 
1 7 90 F0RI«=60 0T0 900STEP4 : SOUND 1 ,1,1 : NE XT 
1 800 IFXY046THEN2000 

1810 SC-SC+500 SPRINT" {HOME} {6 CUR.DES}"S 
C 

1820 FORI-700T0900STEP4 :S0UND1 ,1,1 sSOUND 
1 ,1 + 50, 1 : NEXT 

1 850 FORI = BTTOOSTEP-1 .-P0KE4037+ I , 32 
1 860 SC = SC + 25 SPRINT" {HOME} {6 CUR.DES}"SC 
:NEXT 

1900 BD=BD+1 : IFBD=3THEN3500 
1910 F0RI = 4 0 37T04071 : POKEI , 0 : POKE 1-1024, 
4 : NE XT : BT«34 

1 92 0 SX=INT(RND(0)*20) :SY=INT(RND(0)*11) 

: C*=SX*2 + SY*80 

1930 IFC = YY0RC*=BX*2 + BY*80THEN1 920 
1 940 HX*=SX:HY«=SY: C = B + C : E = C-*1 024 
1 950 POKEC ,46:POKEC+1 ,47:P0KEE,0:P0KEE+1 
,0 

1 960 POKEC + 40 , 5 8 : POKEC + 41 ,59:P0KEE+40,0: 
POKEE+4 1 ,0 

2000 F«1 SPRINT" {HOME} {6 CUR . DES } "SC : CHAR 
,20,0," " : PR I NTME 

201 0 POKE 403 7 + BT , 32 : BT= BT- 1 / V : I FBT < OTHE N 
GOSU B4 0 00 

2020 Z*= INT ( RN D ( 0 ) * 3 ) 

2030 CX=BX:CY=BY:BW=(BB-B-BY*80) :BZ=YY-( 
INTCYY/80) ) *80 

.20 4 0 IFZ*00RZ = 2THENCY«=CY+(BB>( J + 39) )-(J> 

( BB + 39 ) ) 

2050 I F Z = 1 0RZ=2THENCX=CX+ ( B Z < B W ) - (BZ>BW) 
2060 P«=PEEK(B + CX*2 + CY*80) 

2070 IF(P<>33ANDPO4 2)0R(CY<00RCY>1 0 )0R( 
CX«=0ANDCY*0)THEN1 500 
2080 BB«BX*2+BY*80+B : BX-CX: BY-CY 
2090 POKEBB, 42 : POKEBB + 1 , 43 : POKEBB + 4 0 , 4 4 : 
POKEBB+4 1 , 45 

2100 BB = BB-1 024 :P0KEBB,2:P0KEBB + 1 ,2:P0KE 
BB + 40 , 2 : POKEBB + 41 , 2 
2110 BB«=BX#2 + BY*80 + B:BC«BB-1024 
2120 POKEBB, 30:P0KEBB+1 ,31 : POKEBC , 6 : POKE 
BC+1,6 

2130 IFP-33THEN3000 
2140 GOT0 1 500 
3000 ME-ME-1 

30 20 F0RAA = 700T0300STEP-50 : SOUND 3 , A A , 8 

3030 FORBB-7TOO : VOLBB : NEXT 

3040 V0L8:NEXT :V0L8 

3050 IFME-0THEN8000 

3060 IFPEEK(YY+B)-30THEN1 260 

3070 G0T01 320 

350 0 F0RI-QT031 1 2STEP-1 : POKE 1 , 32 : SC-SC+ 1 
00 

3510 PRINT» {BLACK} { CLR } SCORE "SC: CHAR, 16, 
0 , "LIFE" : PRINTME: CHAR ,25,0, "RECORD" 
tPRINTHS 


del “Bonus”, nella quale le 
scatole spariscono e l’ulti- 
ma riga del video viene 
riempita di teschi e, a caso 
fra essi, una bandierina. Il 
vostro compito sarà quello 
di far cadere Tornino sulla 
bandierina; se non ce la fa- 
rete, Tornino perderà la vita. 
Quando avrete raggiunto e 
superato la fase del Bonus, il 
gioco riprenderà dall’inizio 
con il livello di difficoltà 
maggiore (un numero supe- 
riore di teschi e il tempo che 
scorre più velocemente). 
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Comandi 

I comandi sono: 

Z per spostare l’omino a si- 
nistra; 

X per andare a destra; 

; per salire; 

/ per scendere; 

oppure utilizzate il joystick 

in porta 2; 

spazio: per fermare momen- 
taneamente il gioco ed anco- 
ra spazio per farlo ripartire; 
T o Fire del joystick per usa- 
re le molle. 
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3520 SK*=SK + 2:V = V-1 :IFV<1THENV*=1 
3530 CHAR, 1 5, 7 , " {FLASH ON}{D.BLUE}B 0 N 
U S { BLACK } " 

354 0 RESTOREI 2000 : A A* 1 : DOUNT ILA A = 0 
3550 RE ADA A , BB : SOUN D 1 ,AA,BB:LOOP 
3580 F0RI-3952T03990STEP2 : POKEI , 38 :POKEI 
-1 024,0:NEXT 

3590 F0RI-3953T03991 STEP2 : POKEI , 39 :POKEI 
- 1 02 4 , 0 : NEXT 

3 60 0 F0RI = 3992T0M030STEP2 : POKEI , 40 : POKEI 
->1 02 4 , 0 : NEXT 

3610 FORI*3 993TO4 0 31 STEP2 : POKEI , 41 : POKEI 
-1 024, 0 : NEXT 

3620 X=INT(RND(0)*20):II=3952+X*2 
3630 P0KEII,27 : POKE 1 1-*- 1 ,28: POKEI 1 + 4 0 , 32 : 
POKEII+41 , 29 

3 6 40 11=11-1 02 4 : POKE II ,2:P0KEII+1 ,7:P0KE 
11 + 41 ,7 

3650 YY = 0 : CHAR , 2 , 1 , "<P> PER PARTIRE E <S 
> PER SCENDERE" 

3670 GETZ$ : I FZ $ < > " P "THEN 3 6 70 
3680 CHAR, 15, 7, "{9 SPC } " : TI$ = "000000" : Z$ 
= "" : L = 0 

3690 W = YY + B : POKEW , 32 : POKEW+1 ,32:P0KEW+40 
, 32 : POKEW+ 4 1 , 32 

3700 YY = YY + 2 :L = L+ 1 : I FL> 1 9THE NL = 0 : Y Y = Y Y + 4 
0 

3710 W=YY+B:P=PEEK(W) : I F P = 3 2 THE N 3 7 3 0 
3720 G0T03 800 

3730 POKEW , 33 : P0KEW+ V, 35 : P0KEW+40 , 36 : POK 
EW+41 , 37 

3740 GETZ$ : I FZ $ < > " S "THEN 3 6 90 
3 7 50 POKEW, 32 :P0KEW+1 , 32 : P0KEW + 4 0 , 32 : POK 
EW+41 , 32 

3760 W=W+80 :P=PEEK(W) 

3770 POKEW, 33:POKEW+1 , 3 5 : P OKE W+ 4 0 , 3 6 : POK 
EW+41 , 37 

3780 IFP=32THEN3750 
3800 IFP=38THEN3900 

38Ì 0 RI =VAL ( TI$ ) :R1=30-R1:R1=R1*2*SK:SC= 
SC + 3 1 

3820 PRINT" {HOME} {6 CUR . DES } "SC : CHAR , 2 , 1 
, " { 8 SPC} {D.BLUE}PERFETT0{2 SPC}BON 
US" : PRINTR1 " (CUR . SIN } {9 SPC}" 

3840 RESTOREI 2000 : AA=1 :D0UNTILAA=0 
3850 RE ADA A , BB : SOUN D 1 ,AA,BB:LOOP 
3860 GOTOIOOO 

3900 ME=ME- 1 :CHAR,2,1 ,"{11 SPC}{FLASH ON 
} { RED } { SH V} PECCATO {2 SH V}{7 SPC 
} {BLACK} {8 SPC}" 

3910 F0RAA = 700T0300STEP-50 : SOUND 3 , A A , 8 

3920 F0RBB=7T00 : VOLBB :NEXT 

3930 V0L8 : NEXT : V0L8 

3940 FORICI T0500 :NEXT 

3950 IFME=0THEN8000 

3960 GOTOIOOO 


4 000 GX = L :GY = INT(YY-L*2)/80 : A A*= 2 0 
4010 HZ*=HX*2 + HY*80 
4020 IFHX=GXANDHY=GYTHEN4500 
4030 HZ=HZ+B:POKEHZ,32:POKEHZ+1 ,32:POKEH 
Z+40,32:P0KEHZ+41 ,32 
4040 IFHY<GYTHENHY*=HY+1 
4050 IFHX>GXTHENHX=HX- 1 
4055 AA=AA+25:SOUND3,AA,5 
4060 IFHX<GXTHENHX=HX+1 
4070 IFHY>GYTHENHY=HY- 1 
4080 HZ=HX*2+HY*80+B 

4 0 90 POKEHZ , 46 : P0KEHZ + 1 , 4 7 : P OKE HZ + 4 0 , 5 8 : 
POKEHZ + 4 1 ,59 

4100 HZ=HZ-1024:POKEHZ,0:POKEHZ+1 ,0:POKE 
HZ + 40,0 : POKEHZ + 4 1 ,0 
4110 AA = AA+25 : S0UND3 » AA , 5 
4120 GOT04010 

450 0 TX= I NT (RND(0)*20) : T Y = I NT ( RN D ( 0 ) * 1 1 ) 
4510 IFTX=GXANDTY«GYTHEN3500 
4520 C=B+TY*80+TX*2 : E=C- 1 024 :HY=TY:HX=TX 
: BT = 3 4 

4530 S0UND3, 10,80 

4540 FORCONI 2T04STEP- 1 : COLORO , CC : FORDD= 1 
•T030 : NEXTDD ,CC 
4550 C0L0R4 , 1 1 : COLORO , 1 1 
4555 FORI = 4037TO4071 : POKEI , 0 : POKE 1-1024, 
4 : NEXT 

4560 POKEC , 46 : POKEC+1 , 47 : POKEE , 0 : POKEE+ 1 
, 0 

4570 P0KEC + 40 , 58 : POKEC + 4 1 , 59 : P0KEE+40 , 0 : 
POKEE + 4 1 , 0 

4580 HH=YY + B : POKEHH , 33 : POKEHH+1 ,35:POKEH 
H + 40 , 36 : POKEHH+ 4 1 , 37 

4 5 90 HH = HH-1 02 4: POKEHH, 6: POKEHH+1 ,6:P0KE 
HH + 40 , 6 : POKEHH+ 4 1 , 6 
4600 ME = ME-1 : CH A R , 20 , 0 , " " : P R I NTME 
4610 IFME*=0THEN8000 
4620 RETURN 

80 0 0 PRINT "{ BLACK } { CL R } SCORE "SCsCHAR, 16, 
0 , "LIFE" : PRINTME : CHAR, 25 , 0 , "RECORD" 

: PRINTHS 

8010 CHAR , 1 1 ,7 {FLASH ON}{D.BLUE}G A M 
E { 4 SPC}0 VER {BLACK}" 

8020 IFSC<HSTHEN8050 

8030 HS = SC:CHAR, 31 ,0, "{FLASH ON}":PRINTH 
S" {FLASH ON}" 

8040 CHAR , 8 , 1 0 , "HAI FATTO IL NUOVO RECOR 
D" 

8050 CHAR , 5 , 1 2 , "PREMI <RETURN> PER ALTRA 
GARA" 

80 60 Z$ = "" : RESTOREI 300 0 : DOUNT I L Z $ = CHR $ ( 1 
3) 

.80 70 READAA , BB : IF AA = 0THENREST0RE1 3000 : GO 
T08070 

8080 S0UND1 , AA , BB : GETZ$ 

8090 LOOP : G0T09 90 


Punteggio 

10 punti per ogni scatola 
presa 

250 punti per ogni bandieri- 
na raggiunta 

500 punti per ogni bomba 
disinnescata 

25 punti per ogni frazione 
di tempo rimasta dopo aver 
disinnescato la bomba 
100 punti per ogni molla ri- 
masta dopo aver disinnesca- 
to 3 bombe 

Bonus: punteggio variabile 
in base al livello di difficoltà 
raggiunto nel gioco e al tem- 
po impiegato dall’omino per 
scendere verso la bandie- 
rina. 

Tratto da Personal Software 
N. 31/Settembre ’85 
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9000 J*=XX+B : POKEJ , 32 : P0KEJ+1 ,32:P0KEJ+40 
, 32 : P0KEJ+41 , 32 

9010 L*=INT(RND(0)*20) : K-INT (RND (0 ) *1 1 ) 
9020 YY«L*2+K*80:XY=PEEK(YY+B) 

9040 IFXY-32THEN901 0 

9050 FORI-550T0350STEP-1 :S0UND1 ,1,1 : NE XT 
9060 RI *L : R«=L : RETURN 

1 000 0 DATAI 60 ,0 , 1 85 , 0 , 208, 1 53 , 0 , 60 , 1 85 ,0 
,209,153,0,61 ,185,0 

10010 DATA21 0,1 53, 0,62, 185, 0,211 ,153,0,6 
3,24,136,208,228,96 

10020 DATA55, 255, 255, 255, 255, 255, 25 5, 255 
, 0 , 60 , 36 , 36 , 60 , 36 , 36,0 
1 0030 DAT A 0,5 6, 3 6, 36, 56, 3 6, 5 6, 0,0, 60, 32 , 

32.32.32.60.0 

1 0040 DATAO, 5 6, 3 6, 3 6, 36, 3 6, 5 6, 0,0, 60, 32, 

32.56.32.60.0 

1 00 50 DATA 0,60, 32, 32, 56, 32, 32, 0,0, 60, 32 , 

32.44.36.60.0 

1 00 60 DATAO, 36, 3 6, 36, 60, 3 6, 3 6, 0,0, 56, 1 6 , 

16 . 16 . 16 . 56.0 

10070 DATA 0,60, 8, 8, 8, 8, 48, 0,0, 36, 40, 48, 4 

8.40.36.0 

10080 DATAO, 32, 32, 32, 32, 32, 5 6, 0,0, 6 6, 102 
,90,66,66,66,0 

10090 DATA 0,66, 98, 82, 74, 70, 66, 0,0, 60, 36, 

36.36.36.60.0 

10100 DAT A 0,60, 3 6, 3 6, 60, 32, 32, 0,0, 1 2 6,66 
,66,74,70,126,0 

10110 DATAO, 60, 3 6, 56, 4 8, 4 0,3 6, 0,0, 60, 32, 

32.60.4.60.0 

10120 DATAO, 5 6, 16, 16, 16, 16, 16, 0,0, 36, 36, 

36.36.36.60.0 

10130 DATAO, 68, 68, 40, 40, 16, 16, 0,0, 68, 68, 

84.84.40.40.0 

10140 DA TAO, 40, 40, 16, 16, 40, 40, 0,0, 34, 34, 

28.8.8.8.0 

10150 DATAO, 60, 4, 8, 16, 32, 60, 0,0, 1,3, 7, 15 
,7,3,1 

10160 DATAI 28,128,128,128,1 28,128,128,12 
8, 128, 128, 128, 128, T2 8, 128, 128,0 
10170 DATA 63, 80, 212, 80, 76, 3, 4, 8, 240, 40,1 

72.40.200.0. 1 28 

10180 DATA 72, 0,0, 0,0, 0,0, 0,0, 7, 8, 10, 8, 8, 

11 . 72 . 39 . 0 . 0 . 0 . 0 . 0 . 0 . 0.0 

10190 DATA224 , 16, 80, 16, 16,208, 18,228,17, 
15,3,3,3,3,2 

1 02 00 DATA 12, 136, 240, 192, 192, 192, 192, 64, 
48, 7’, 8, 1 0, 1 6, 1 7,20 

10210 DATAI 9, 8, 224, 16, 80, 8,1 3*6, 40, 200, 16 
,196,243,15,3,3,12,240 
10220 DATA 1 92, 35, 20 7, 240, 192, 192, 48, 15, 3 
,0,0,0,0,31 ,31 

10230 DATA 63, 63, 0,0, 0,0, 254, 254, 250 , 250 , 
63,127,1 27,255,255 


1 0240 DATAI 28, 128,255,244,244,232,232,20 

8.80.96.224.3.4.2. 1 ,7 

10250 DATA31 ,63,63,196,56,0,128,224,248, 
252,252 

10260 DATAO, 60, 36, 36, 36, 36, 60, 0,0, 8, 24, 8 

, 8 , 8 , 28,8 

10270 DATAO, 60, 4, 4, 60, 32, 60, 0,0, 60, 4, 4, 2 

8.4.60.0 

10280 DATAO, 32, 40, 4 0,60, 8, 8, 0,0, 60, 32, 32 
,60,4,60,0 

10290 DATAO, 60, 32, 32, 60, 36, 60, 0,0, 60, 4, 4 

, 8 , 8 , 8,0 

10300 DATAO, 60, 36, 3 6, 60, 3 6, 60, 0,0, 60, 36, 

36.60.4.4.0 

10310 DATA 6 3, 6 3, 63, 63, 63, 31 ,1 5,7,252,252 
,252,252,252,248,240,224 
10320 DATA 6, 60, 64, 126,2,126,64,126 
1 1 000 DAT A5 9 6, 8, 70 4, 7, 1 02 3,1 ,704,8,739,8 
,770,8,704,8,770,8,739,8 
11010 DATA596,8,704,7,1023,1 ,704,8,739,8 
,770,8,704,8,685,16 

11020 DATA704,8,1023,1 ,704,7,739,8,770,8 
,784,8,770,8 

11030 DATA739,8,704,8,685,8,596,8,643,8, 
685,8,704,7 

1 1 040 DATAI 023 , 1,704,16,643,8,685,8,643. 

8.596.8.643.8.685.8 

1 1 050 DATA704 ,8,643,8,596,8,643,8,596,8, 

544.8.51 6.8 

1 1 060 DAT A5 9 6, 1 6, 64 3, 8, 6 85, 8, 64 3, 8, 596, 8 
,643,8,685,8,704,8 

11070 DATA64 3 ,8,596,8,704 ,8,685 ,8,739,8, 

704.7.1023.1 

11080 DATA704, 16, 1023,1 ,0,0 
1 2000 DATA5 9 6 , 8 , 5 7 1 ,8,596,8,643,8,596, 1 6 
,810,8 ,798 ,8,810,8 

12010 DA TA834, 8, 810, 24, 596, 8, 1023, 1,596, 

12.1023.1 

12020 DATA596 ,8,643,8,685,16,704,16,1023 

, 1 , 0,0 

13000 DATA 596, 12, 704, 24, 1023, 1,704,11, 10 
23,1 ,704,11 

13010 DATA 685, 12, 643, 12, 685, 12, 704, 12, 68 

5.24 

1 30 20 DA TA596, 12, 70 4, 24, 1023, 1,704, 11, 10 
23,1,704,11 

13030 DATA 685, 12, 643, 12, 685, 12, 704, 12, 64 

3.24 

13040 DATA7 70, 12, 8 10, 12, 7 8 4, 12, 7 70, 2 4, 68 

5.12.739.12.704.12.685.12 

13050 DATA 704, 12, 685, 12, 643, 12, 596, 12, 57 

1.12 

13060 DATA 5 96, 12,571 ,12,516,24,1023,1 ,0, 
0 

60000 POKE65298 , 4:P0KE 65299, 208:PRINT" {C 
LR}" : END 


MINOTAURO 




Ecco un gioco per chi è bra- 
vo in matematica. Non ci 
vuole una laurea in ingegne- 
ria, ma è bene sapere che 
cos’è il minimo comune 
multiplo per riuscire più fa- 
cilmente a trovare il nume- 
ro al momento buono. È un 
gioco che insegna a riflette- 
re e ad effettuare una mossa 
dopo un ponderato esame 
della situazione. 

Certo ricorderete chi era il 
Minotauro. Era un favoloso 
mostro cretese con il corpo 
di uomo e la testa di toro. 
Questo mostro, appena nato 
fu chiuso in un labirinto e 
ogni nove anni sette ragazze 
ateniesi dovevano essergli 
offerte in pasto. Voi siete 
una di queste, ma riuscirete 
a sfuggire alla morte se, col 
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20 CLR 

30 SCNCLR:V0L8:C0L0R1 ,1 ,3 
40 SC*= 3072 :C0 = 204 8 : COLORO , 7 , 4 : COLOR 4 ,6,4 
: C = 0 : R = 0 : PO*=SC+ ( R*40 ) + C : BE = SC+ 1 30 
50 PRINT" {WHITE} " ; 

60 FORICI T024 :RR$=RR$+" {CUR .GIU } " : NEXT 
70 F0RI=1T040:CC$=CC$+" { CUR . DES } " : NEXT 
80 FORICI T036 :CL$*=CL$ + " " : NEXT 
90 H$="1 23456789 ?"+CHR$( 2 4 ) :DIMCL$(1 0) 

1 0 0 FORI*=SCTOSC + 39 :POKEI , 1 60 : NEXT 

1 10 F0RI=SC+(24*40)TOSC+(24*40)+39:POKEI 
, 1 60 :NEXT 

120 FORI*=SCTOSC + (24*40)STEP40 :POKEI , 1 60 : 
NEXT 

1 30 FORI=SC+39TOSC+ ( 24*40 )+39STEP 40 :POKE 
1,160: NEXT 

140 PRINT" {HOME} {RVS ON } { 1 1 SPC}M INO 
T A U R 0 { 1 1 SPC}" 

150 FORI=SC+ 1 30T0SC+850STEP80 
160 FORJ-ITOI+1 8STEP2 
170 Q=INT ( RND ( 1 ) * 1 2 ) : IFQ=OTHEN 1 70 
1 80 A= ASC (MID$ ( H$ , Q , 1 ) ) 

190 POKEJ , A : NEXT : NEXT 

200 NU*=INT ( RND ( 1 ) * 1 0 0 ) : IFNU-0THEN2 0 0 
210 NU$*=STR$(NU ) :RA=INT(RND( 1 )*3) : I F R A = 0 
THENG0T02 1 0 

220 IFNU<1 0THENNU$="0"+NU$ 

230 IFRA*= 1 THENCL$ ( 1 )*=" LA PRIMA CIFRA E’ 
"+MID$(NU$,2,1 ) 

240 IFRA=2THENCL$(1 )="LA SECONDA CIFRA E 
’ " +MID$(NU$,3» 1 ) 

250 CN=2 : F0RI=2T0NU- 1 

2 60 A = NU / 1 : B-INT( A ) : I FA < > BTHE N2 9 0 
270 IFCN=7THEN300 

280 CL$(CN)*="UN FATTORE DEL NUMERO E’ » + 
STR $ ( A ) : CN = CN+ 1 
290 NEXT 

300 IFNU/2=INT(NU/2)THENCL$(CN)="IL NUME 
RO E' PARI" 

310 IFNU/2<>INT(NU/2)THENCL$(CN)="IL NUM 
ERO E' DISPARI" 

320 GB=VAL(MID$ (NU$ , 3 , 1 ) ) :F0RI=2T09:A=GB 
/I : IFA-INT (GB/I )THENG0SUB1 060 : GOTO 3 4 
0 

330 NEXT 

340 GB=VAL(MID$ (NU$ ,2 , 1 ) ) : F0RI=2T09 : A=GB 
/ 1 : IFA = INT(GB/I )THENG0SUB1 070 : GOTO 3 6 
0 

350 NEXT 



360 SD=VAL(MID$(NU$,2, 1 ) ) :IFSD/2=INT(SD/ 
2)THENCL$(7 )=" LA PRIMA CIFRA E' PARI 

tt 

370 IFSD/2<>INT(SD/2)THENCL$(7)*="LA PRIM 
A CIFRA E' DISPARI" 

380 SD=VAL(MID$(NU$,3,1)):IFSD/2=INT(SD/ 
2)THENCL$(8)=" LA SECONDA CIFRA E» PA 
RI" 

390 IFSD/2<>INT(SD/2)THENCL$(8)="LA SECO 
N DA CIFRA E» DISPARI" 

400 F 0 R I *= 1 T09 : IFI*I*=NUTHENCL$(9 ) = " I L NUM 
ERO E f UN QUADRATO PERFETTO" 

MIO NEXT 

420 HO=BE+ 1 0 : POKEHO , 1 60 

M30 C1=6:R1=6:MA=BE+(R1*40)+C1 :VE=PEEK(M 
A) : POKEMA , 1 3 

4 40 C = 10:R s =18:PO = BE+(R*40)+C:VA*=PEEK(PO) 
: POKEPO ,209 

450 A = P E E K ( 1 98) : POKEMA ,13:IFA=64THEN550 

460 IFA=62THENGOSUB560 

470 IFA=1 2THENG0SUB620 

480 IFA=33THENGOSUB680 

490 IFA-41 THENG0SUB740 

500 IFA=22THEN1 040 

510 GOSUB850 :S0UND2 , 1 5 , 1 2 : SOUND 1 ,23,23 
520 PRINT" {HOME}" ;LEFT$(RR$,2);LEFT$(CC$ 
, 2 ) ; CL$ ; 

530 TT=TT+CU 

540 PRINT" {HOME}" ;LEFT$(RR$,23);LEFT$(CC 
$ * 7 ) ; ” { RVS ONjULTIMO: {RVS OFF}";CU;" 
{6 SPC } {RVS ONJTOTALE : {RVS OFF}";TT; 
550 CU«0 : POKEMA , 1 41 : G0T0450 
560 IFR=OTHENRETURN 

570 R»=R-2 : PE=PO : PO«=BE + (R*40)+C: DA»=PEEK(P 
0 ) :.IFDA«32THENR«R+2 : P0=BE+(R*40)+C:R 
ETURN 

580 IFDA=1 3THEN920 
590 G0SUB800 

600 POKEPE, VA:FL=PEEK(PE) : CU=VAL (CHR$ ( FL 
) ) : POKEPE , 32 :VA*=PEEK(PO) 

610 POKEPO, 209 :RETURN 
620 IFR*=1 8THENRETURN 

630 R=R+2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(P 
0 ) : IFDA = 32THENR«=R-2:P0 = BE+(R*40)+C : R 
ETURN 

640 IFDA«=1 3THEN920 
650 G0SUB800 

660 POKEPE , VA :FL = PEEK(PE ) : CU = VAL ( CHR$ ( FL 
) ) : POKEPE , 32 

670 V A = PE E K ( PO ) : POKEPO ,20 9 : RETURN 
680 IFC-OTHENRETURN 

690 C=C-2 : PE=PO :PO=BE+(R*40)+C:DA=PEEK(P 
0 ) : IFDA = 32THENC = C + 2 : PO = BE+ ( R* 4 0 ) + C : R 
ETURN 


vostro ingegno, supererete 
la prova. 

Scopo del gioco è indovinare 
un numero compreso tra 0 e 
99, ottenendo nel contempo 
un buon punteggio. Per riu- 
scirci dovete muovere una 
pedina in una scacchiera 
composta da numeri (0-9), 
da X e da punti di domanda. 
Sulla scacchiera si trova an- 
che il Minotauro, dal quale 
dovete guardarvi. Se passate 
un numero, questo viene ri- 
mosso e sommato al punteg- 
gio, ma attenzione: nel caso 
in cui esso sia maggiore di 
5, il Minotauro fa un passo 
verso di voi e, se vi raggiun- 
ge, il gioco termina con la 
vostra sconfitta. Se passate 
su una X, in cima allo scher- 
mo appare per breve tempo 
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un’informazione riguardan- 
te il numero da indovinare. 
Se infine passate su un pun- 
to interrogativo, al punteg- 
gio viene aggiunto un nume- 
ro causale. 

Ricordatevi che non potete 
passare sugli spazi vuoti la- 
sciati dai numeri rimossi. 
Per muovere la pedina usate 
i tasti I (sinistra), P (de- 
stra), Q (su) Z (giù); se vi 
trovate circondato da spazi, 
premete T per arrendervi. 
Quando pensate di aver in- 
dovinato il numero, sposta- 
te la pedina sul quadratino 
che si trova nella parte alta 
della scacchiera. 

Tratto da Paper Soft 
N. 16/’ 8 5 
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700 IFDA*1 3THEN920 
710 G0SUB800 

720 POKEPE , VA :FL = PEEK(PE ) : CU «VAL ( CHR$ ( FL 
) ) : POKEPE , 32 

730 VA=PEEK ( PO ) : POKEPO ,209 : RETURN 
740 IFC*=1 8THENRETURN 

750 OC + 2 : PE = PO:PO*=BE+(R*40) + C:DA*=PEEK(P 

0) : IFDA = 32THENOC-2 : PO = BE+ ( R*4 0 ) +C : R 
ETURN 

760 IFDA-1 3THEN920 
770 G0SUB800 

780 POKEPE , VA :FL = PEEK(PE ) : CU*= V AL ( CHR$ ( FL 
) ) : POKEPE , 32 

790 VA = PEEK(PO) : POKEPO , 209 : RETURN 
800 IFDA=63THENCU=INT(RND( 1 )*1 0) 

810 FU=INT(RND(1 )*9) :DI=(40-LEN(CL$(FU ) ) 

)/2 

82 0 IFDA«=24THENPRINT" {HOME }";LEFT$(CC$,D 

1) ;LEFT$(RR$,2);CL$(FU); : G0SUB1 050 
830 IFDA-=l60THENG0SUB1000 

840 ‘RETURN 

850 IFCU<6THENRETURN 
-860 IFC1 >CTHENC1 =C1 -2 
870 IFC1 <CTHENC1 *=C 1 + 2 
880 IFR1 >RTHENR1 -RI -2 
890 IFR1 <RTHENR1 =R1 +2 

900 POKEMA , VE :MA = BE+ (RI *40)+C1 : I FPEEK ( MA 
)*=209THEN920 

910 VE = PEEK(MA ): POKEMA , 1 3 : RETURN 
920 PRINT" {CLR} "; LEFT$ (RR$ , 1 0 ); "IL MINOT 
AURO TI HA MANGIATO!" 

930 PRINT" {HOME}" ; LEFT$(RR$ , 1 3) ; "IL NUME 
RO ERA " ; NU ; 

940 PRINT : PRINT : PRINT 

950 PRINT "VUOI GIOCARE ANCORA (S/N)?" 

960 GETA$: IFA$=" "THEN960 
970 IFA$="S"THEN20 
980 IFA$*="N"THENEND 
990 GOTO960 

1 000 FORICI T01 0 : GETA$ : NEXT 
1005 PRINT" {CLR} " ;LEFT$ (RR$ , 2 ) ; LEFT$ (RR$ 
, 3 ) ; "QUAL ' E ’ IL NUME RO " ; : I N P UT VT 
1010 IFVTONUTHENPRINT : P R I NT " S B AGL I ATO ! 

IL NUMERO ERA" ; NU : GOTO940 
1 020 PR I NT " BR A V ISS I MO ! ! {2 SPC}HAI BATTUT 
0 IL MINOTAURO!" 

1025 PRINT" {2 CUR . GIU } IL TUO PUNTEGGIO E 
' STATO" ;TT 
1030 G0T09 40 

1040 PRINT" {CLR }";: G0T0930 
1 050 FORICI T01 500 : NEXT : RETURN 
1060 CL$(6)*="UN FATTORE DELLA SECONDA CI 
FRA E » " + S T R $ ( I ) : RETURN 
1070 CL$(5)="UN FATTORE DELLA PRIMA CIFR 
A E ’ " + S T R $ ( I ) : RETURN 


DIFESA 



10 GRAPHIC 1,1 : SCALE 0 : VOL 8 

20 FOR 1=0 TO 360 STEP 1 80 
30 CIRCLE 1 , 1 00 , 1 00 , 6 , 6 , , f 1 , 1 20 
40 NEXT I 

50 BOX 1 ,0,7,6, 10, ,1 : BOX 1,2, 2, 4, 6, ,1 

60 BOX 1 ,50 ,50 , 60 , 54 , , 1 : BOX 1 , 53,49,57 

,55 

70 SSHAPE S$, 0,0, 6, 10 : SSHAPE C$,20,0,4 

0,20 : SSHAPE A $ , 4 9 , 4 9 , 6 1 , 5 5 
80 SSHAPE M$,92,94,106,106 : GSHAPE C$,0 
,0 : GSHAPE C$,50,49 : GSHAPE C$,94,9 
4 

90 FOR 1=20 TO 300 STEP 30 
100 GSHAPE S$, 1,190 
110 NEXT I 

120 X=RND (“TI ) : Y-RND(-TI) 

130 X=RND(1)*310 : Y=RND(1)*100 : AC=AC+ 
1 : IF AC = 1 1 THEN 410 

140 G=INT ( TI / 1 00 ) 

145 FOR J = 1 3 TO 22 : CHAR 1 , J , 2 3 , CH R$ ( 1 9 

0) : NEXT J 

146 FOR J = 1 6 TO 19 : CHAR 1 , J , 22 , CHR$ ( 1 9 

0) : NEXT J 

150 DRAW 1,0,150 : RESTORE 430 : DO 
160 READ E , F : DRAW TO E , F 
170 LOOP UNTIL E=0 

180 GSHAPE A $ , X , Y : SOUND 1,1 008,8 
190 GET G$ : IF I NT ( T I / 1 0 0 ) > G+ 5 THEN 130 
200 IF N0T(INT(TI/1 00)=G+4) THEN 240 
210 DRAW 1 , X+ 6 , Y + 7 TO AC*30--7,1 99 : DRAW 
0 , X + 6 , Y + 7 TO AC*30->7 ,199 
220 SOUND 3,900,20 : GSHAPE C$,AC*30-10, 

1 89 

230 IF CC ( AC ) < > 1 THEN CC(AC) = 1 : PD = PD+1 

240 IF G$ = CHR$(157) THEN K = K-^4 

250 IF G$=CHR$(29) THEN K=K+4 

260 IF G$=CHR$( 1 45) THEN K=0 

270 IF G$<"0 M OR G $ > " 9 " THEN 390 


All’inizio del gioco, su un 
paesaggio montuoso sche- 
matizzato, vi sono dieci po- 
stazioni contraeree predi- 
sposte per colpire le inva- 
sioni di astronavi nemiche. 
Da queste postazioni si può 
far fuoco sul nemico pre- 
mendo i tasti numerici (da 1 
a 0). Il tiro può essere ag- 
giustato agendo sui tasti 
con le frecce a sinistra e a 
destra. Per raddrizzare im- 
mediatamente il tiro, pigia- 
re il tasto con la freccia ver- 
so l’alto. 

Le astronavi si presentano 
una alla volta e si muovono 
sempre verso il centro dello 
schermo. Possono trovarsi a 
diversa altezza, ma fortuna- 
tamente i cannoni sparano 
automaticamente alla quota 
giusta. Appare un’astronave 
ogni cinque secondi circa e 
al quarto secondo questa di- 
struggerà un cannone se 
non sarà stata colpita nel 
frattempo. Dopo la decima 
astronave il gioco finisce e 
viene visualizzato il totale 
di astronavi distrutte e di 
postazione colpite. Il tutto è 

27 


condito da un’opportuna do- 
se di suoni e rumori spa- 
ziali. 

Il programma è stato scritto 
interamente in BASIC, sen- 
za alcun ricorso ad istruzio- 
ni come PEEK e POKE che 
richiederebbero conoscenze 
più approfondite del funzio- 
namento della macchina. È 
un buon esercizio sulle 
istruzioni grafiche del C 16 , 
anche se ci si è limitati al 
bianco e nero per avere più 
risoluzione sullo schermo. 
Non sarà però difficile ap- 
portare qualche variazione 
in modo da poterlo usare in 
modo grafica multicolore. 
Tratto da BIT N. 60/Aprile 
1985. 


280 V«VAL(G$) : IF V«=0 THEN V-10 
290 IF CC(V)«=1 THEN 390 
300 DRAW 1,V*30-7,189 TO V*30-7+K,Y 
310 DRAW 0,V*30-7,189 TO V*30-7+K,Y 
320 FOR B*1 023 TO 993 STEP -2 
330 SOUND 1 , B , 1 : SOUND 2,B-50,1 

340 NEXT B : W«=V*30--7 + K 
350 IF NOT ( W>X+ 1 AND W<X+11) THEN 400 
360 GSHAPE M$,X-2,Y : AD*= A D+ 1 
370 FOR B-900 TO 100 STEP -15 : SOUND 1, 
B , 1 : SOUND 2,B-100,1 : NEXT B 

380 GSHAPE C $ , X , Y : GOTO 130 
390 IF X< 1 60 THEN X-X+1 : ELSE X-X-^1 

400 GOTO 180 

410 GRAPHIC 0 : SCNCLR : PRINT : PRINT » 
ASTRONAVI DISTRUTTE: " ; AD 
420 PRINT " POSTAZIONI DISTRUTTE PD 
430 DATA 10,160,40,120,55,150,78,135,110 
,160,140,150,185,175,230,120,290,180 
,319,150 

440 DATA 319,199,98,199,98,180,122,180,1 
22, 170, 161, 170, 161, 180, 185, 180, 185,1 
99,0,199 


GRAF5 




0 REM GRAF5 

10 COLORO, 1 :C0L0R1 ,7, 5:COLOR4, 1 
15 PRINTCHR$(1 42)CHR$(8) 

20 POKE56 ,56 :POKE55 ,0 :CLR 

30 US$«CHR$( 1 47)+" {1 0 SPCjPREMI FI PER U 
SCIRE" 

40 KEY1 ,CHR$(1 33) 

100 PRINTCHR$ ( 1 47) 

110 PRINT” OPZIONI PRINT : PRINT 
120 P R I N T ” 1 CREA C A RA TTE RE ” : P R I NT 
130 P R I N T ” 2 MEMORIZZA CARATTERE" : PRINT 
140 P R I N T " 3 CORREGGE CARATTERE" : PRINT 
150 PR INT " 4 MOSTRA CARATTERI ": PRINT 
160 P R I N T " 5 SALVA SET DI C A R ATTE R I " : P R I N 
T 

170 P R I N T " 6 CARICA SET DI CARATTERI ": PRI 
NT 

180 PRI NT " 7 FINE" 

190 GETA$:IFVAL(A$)=0THEN1 90 
195 I=VAL(A$) 
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200 ONIGOSUB1 000 , 2000 , 3000 , 4000 , 5000 , 600 
0 ,7000 
210 GOT0 1 00 
1000 PRINTUS$ 

1010 F0RI*=9T01 6 :CHAR1 , 16, I, "++++++++ ":NE 
XT 

1060 PC = 2 4 2 4 : XC = 0 : YC = 0 
1 070 POKEPC ,PEEK(PC)+1 28 
1 080 GET KE YA $ 

1090 A=ASC(A$) : SP = 0 

1 1 00 IFA=29ANDXC<7THENXC=XC+1 :PC=PC+1 :SP 
= 1 

1110 IFA=1 57ANDXC>0THENXC=XC-1 :PC«=PC-1 :S 
P«-1 

1120 I F A = 1 7ANDYC<7THENYC=YC+1 :PC=PC+40:S 
P = 40 

1130 I F A = 1 4 5ANDYOOTHENYC-YC-1 : PC = PC-40 : 
SP=-40 

1140 IFA=32THENPOKEPC+1 024 ,81 
1150 IFA=20THENP0KEPC+1 024 , 43 
1160 POKEPC-SP , PEEK (PC-SP )- 1 28 
1170 IFAOI 33THEN1 070 
1180 FOftI=0TO7 
1 1 90 B Y ( I ) =0 
1 200 FOR J *=0T07 

1210 BY(I )«BY(I)-2*J* (PEEKC3448+7-J+40 
* 1 )=81 ) 

1 220 NE XT J : NEXT I 
1230 RETURN 

2000 PRINTCHR$(147) 

2010 P R I NT " 1 NORMALE" : PRINT 
2020 P R I N T " 2 RE V E RS ATO " : P R I NT 
2030 P R I N T " 3 SIMMETRIA V E RT I C A LE " : P R I NT 
2040 PRINT" 4 SIMMETRIA OR I Z Z ONT A LE " : P R I N 
T 

2050 P R I N T " 5 RUOTATO DI 90 GRADI "; 

2055 PRINT" IN SENSO ORARIO ": PR INT 
2060 GET KE Y A $ 

2070 A=VAL(A$): IFA=0ORA>5THEN2060 
2080 INPUT" CARATTERE NUMERO ";NC* 

2090 IFNC*>255ORN*<0THEN2080 
2100 0NAG0SUB2200 , 2300 ,2400,2500,2600 
2110 FORI = 0T07 : P0KE1 433 6+8*NC*+I , BY(I ) :N 
EXT 

2120 RETURN 
2200 RETURN 

2 300 FORI = 0TO7:BY(I)=25 5-BY(I) : NE XT 
2310 RETURN 

2400 FORI=0TO7 
2410 F0RJ-0T03 

2420 BD=(BY(I)AND2tJ)/2tJ ;BY(I )=BY(I 
) -2 t J*BD 

2430 BS«(BY(I)AND2t(7-j))/2t(7-J) 

2435 BY(I)=BY(I)-2+(7-J)*BS 


Programmare nuovi carat- 
teri con il Commodore 16 è 
facile, ma non molto imme- 
diato: è difficile cioè “vede- 
re” che 24, 56, 103, 102, 
103, 56, 24, 0 rappresenta- 
no un simbolo grafico. Sa- 
rebbe molto più comodo se 
si potesse disegnare diretta- 
mente il carattere sullo 
schermo e farlo memorizza- 
re senza tanti calcoli, PEEK 
e POKE. Il programma 
GRAF5 fa precisamente que- 
sto. È commentato come al 
solito e puoi quindi elimina- 
re facilmente certe parti che 
non ti interessano o aggiun- 
gerne altre per renderlo più 
adatto ai tuoi scopi. 
All’inizio del programma si 
presenta sullo schermo il 
menu principale nel quale 
sono elencate le seguenti 
opzioni: 

1. Crea carattere 

2. Memorizza carattere 

3. Corregge carattere 

4. Mostra caratteri 

5. Salva set di caratteri 

6. Carica set di caratteri 

7. Fine 

Siccome il programma per- 
mette di crearsi un proprio 
set di caratteri, all’inizio si 
dovrà scegliere l’opzione 1 
(Crea carattere). Premendo 
quindi il tasto [ 1 ], si presen- 
ta una griglia di crocette 
che rappresenta lo spazio a 
disposizione per la creazio- 
ne del carattere. Le crocette 
delimitano dei quadratini 
bianchi, che potranno esse- 
re anneriti premendo la bar- 
ra dello spazio. Spostando 
quindi il cursore e premen- 
do la barra potremo creare 
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il nostro disegno. Se si vuole 
cancellare un punto, preme- 
re il tasto [DEL]. Per torna- 
re al menu, premere [FI]. 
Dopo la creazione, il caratte- 
re deve essere memorizzato 
(opzione 2). Si presenta un 
nuovo menu dal quale potre- 
mo scegliere se memorizzar- 
lo normale, inverso, a sim- 
metria verticale, a simme- 
tria orizzontale, oppure ruo- 
tato di 90 gradi in senso 
orario. Effettuata la scelta, 
occorre fornire il D/CODICE 
del carattere per la sua me- 
morizzazione. 

Si torna poi automaticamen- 
te al menu principale. 

Se ora si vuole vedere il ca- 
rattere come si presenta 
nella realtà, si sceglie l’o- 
pzione 4 e si preme il tasto 
del carattere in questione. Si 
torna al menu principale 
dove, se il carattere non ci 
soddisfa, sceglieremo l’o- 
pzione 3 (Corregge caratte- 
re) per effettuare le neces- 
sarie modifiche. Anche qui, 
alla richiesta “Carattere da 
correggere?” bisogna forni- 
re il D/CODE (che per la A 
maiuscola è 1, ad esempio). 
Effettuate le correzioni si 
torna al menu con [FI] e, 

30 


2440 BY(I)=BY(I)+2+J*BS:BY(I)=BY(I)+2 
+(7-J)*BD 
2450 NEXT J , I 
2460 RETURN 
2500 F0RI=0T03 
2510 T = B Y ( I ) 

2520 BY(I )«BY(7-I ) 

2530 BY (7"I ) =T 

2540 NEXTI 

2550 RETURN 

2600 FORI =0T07 

2610 B2 ( I ) =B Y ( I ) : B Y ( I ) =0 

2620 NEXTI 

2630 F0RI=0TO7 

2640 F0RJ=0T07 

2645 EX«(B2(I)AND2t(7-j))/2+(7“J) 

2650 BY(J)=BY(J)OR(2t(EX*I)*-(EXOO)) 

2660 N EXT J , I 

2670 RETURN 

3000 PRINTCHR$ ( 1 47 ) 

3010 INPUT "CARATTERE DA CORREGGERE ";NC$ 
3020 IFNC*>2550RN$<OTHEN301 0 
3030 PRINTUS$ 

30 40 FORI = 1 T08 :PRINTCHR$(17);: NEXTI 
3050 FORI=0TO7 

3060 F0RJ=1T016:PRINTCHR$(32); :NEXT 
3070 FOR J=0T07 

3080 IFPEEKO 4336 + 8* NC* + I)AND2t(7-j)TH 
ENS I =- 1 

3085 IFSITHENPRINTCHR$(209);:SI=0: GOTO 31 
00 

3090 PRINTCHR$ ( 43 ) ; 

3100 NEXTJ : PRINT : NEXTI 
3110 G0T01 060 

4000 PRINTCHR$ ( 1 47 ) "PREMI FI PER TORNARE 

11 

4005 PRINTCHR$ ( 1 7 ) "PREMI I TASTI CORRISP 
ONDENTI " 

4006 PRINT "AI CARATTERI CHE VUOI VEDERE" 
4010 FORI-1 T02000 : NEXTI 

4020 PRINTCHR$( 1 47) ; 

4030 POKE65298 ,PEEK(65298)AND251 
40 35 POKE65299 » ( PEEK( 652 99 )AND3) + 56 
4040 GETKE YA$ 

40 50 IFA$ < >CHR$ ( 1 33 )THENPRINTA$ ; : GOTO4 0 4 
0 

4060 POKE65298,PEEK(65298)OR4 
4070 P0KE65299 , (PEEK(65299)AND3)+208 
4080 COLORI , 7 » 5 : RETURN 
5000 PRINTCHR$( 1 47) 

5010 PRINT "DISCO 0 NASTRO ?" 

5015 GETDV $ : I FDV $ < > " N " ANDDV $ < > " D "THE N5 0 1 
5 

5020 PRINT 

5030 INPUT "SET NUMERO ";NS* 


5040 PRINT 

5050 PRINT" FINO A CHE CARATTERE { SH SPC}V 
UOI SALVARE 
5055 INPUTNC % 

5060 IFNC*>255THEN5040 
5070 IFDV$="N"THEN5500 

5080 0PEN1 , 8 , 2 , " @ : S E T # " + STR$ ( NS % ) + " , S , W 
5082 PRINT : PRINTDS$ 

5085 IFDSTHENF0RI*=1 T02000 :NEXT : CLOSE 1 : RE 
TURN 

5090 PRINT # 1 ,CHR$(NC* ) ; : FORI-OTO (NC*+ 1 )* 
8-1 

5100 PRINT^I ,CHR$(PEEK(1 4336+1) ) ; 

5110 NEXTI 
5120 CL0SE1 
5130 RETURN 

5500 0PEN1 , 1 , 1 , "SET #"+STR$(NS%) 

5510 PRINT//1 ,CHR$(NC*) ; : FORI*=OTO (NC* + 1 )* 
8-1 

5520 PRINT//1 ,CHR$(PEEK(1 4336+1) ) ; 

5530 NEXTI 

5540 CL0SE1 

5550 RETURN 

6000 PRINTCHR$ ( 1 47 ) 

6010 PRINT "DISCO 0 NASTRO ?" 

6015 GETDV $ : I FDV$ <> "N" ANDDV$ <> "D "THEN60 1 
5 

6020 PRINT 

6030 INPUT "SET NUMERO ";NS* 

6070 IFDV$«="N"THEN6500 

6080 0PEN1 , 8 , 2 , "SET #"+STR$ ( HS% ) + " , S f R" 
6082 PRINT : PRINTDS$ 

6085 IFDSTHENF0RI=1 T02000 :NEXT : CLOSE 1 : RE 
TURN 

60 90 GET # 1 ,A$:NC$*=ASC(A$) : F OR I = 0T0 ( NC %+ 1 
) *8-»1 

6100 GET# 1 , A$:POKE 14336+1, ASC (A$+CHR$(0) 

) 

6110 NEXTI 
6120 CL0SE1 
6130 RETURN 

6500 0PEN1 ,1 ,0,"SET #"+STR$(NS%) 

6510 GET#1 ,A$:NC*-=ASC(A$) : FORI = OTO ( NC $+ 1 
) * 8 - 1 

6520 GET# 1 , A$:POKE 14336+1, ASC (A$+CHR$(0) 

) 

6530 NEXTI 
6540 CL0SE1 
6550 RETURN 

7000 PRINTCHR$ ( 1 7 ) "SICURO ?" 

7010 GETKE YA$ 

7020 IFA$="S"THENSYS32768 
7030 RETURN 


prima di poter vedere il ca- 
rattere, occorre memoriz- 
zarlo con l’opzione 2. 

Le opzioni 5 e 6 servono per 
archiviare o leggere da disco 
o nastro il set di caratteri 
così creato. Dopo la scelta 
della periferica di memoriz- 
zazione di massa, si deve da- 
re il numero del set, per un 
successivo riferimento. Do- 
podiché il set viene caricato 
in memoria, o archiviato, a 
seconda dell’opzione. 
L’ultima opzione (7. Fine) 
va premuta solo quando si 
vuole uscire dal programma 
e si è già salvato il set di ca- 
ratteri creato. Se si risponde 
“S” (sì) alla prudenziale do- 
manda “Sicuro?”, il pro- 
gramma viene cancellato 
dalla memoria. 

Tratto dal libro Commodore 
16 sempre di più 


Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola in 
Gennaio 
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GRUPPO EDITORIALE 

JACKSON 



Le strenne 
firmate Jackson 



COMPUTERGRAPHIA 

) oan Scott 

In 176 meravigliose e 
coloratissime pagine, uno 
splendido viaggio attraverso le 
immagini elaborate con le 
tecniche più avazate di 
computer-graphics. 

Cod. 802P Lire 40.000 


IMPARA IL BRIDGE 
CON IL COMPUTER 

Claudio Trinchino 
Imparare il bridge con l’aiuto del 
computer diventa un piacevole 
passatempo. Un programma 
interattivo elaborato su IBM e 
su C 64 ti conduce passo passo 
a diventare ... quasi un esperto 
di bridge. Poi con un po' di 
applicazione ... 

Con floppy disk per C64 
Cod. CC229 Lire 50.000 
Con floppy disk per IBM 
Cod. CC239 Lire 50.000 


Puoi trovare le strenne Jackson 
nelle migliori librerie 


COFANETTI 
SPEEDY COMPUTER 

L’informatica attraverso i testi e 
le immagini studiate per i 
bambini può diventare facile 
anche per ... mamma e papa. 
Cod. CU001 Lire 45.000 
Cod. CU002 Lire 45.000 


COMPUTER IMAGE 

Mauro Salvemini 
Chi è ancora convinto che il 
computer limiti le possibilità 
creative dell'uomo, può scorrere 
nel libro, le splendide immagini 
di computer-art a colori e ... 
convincersi del contrario. 

Cod. 0231 Lire 40.000 


ROMANZO ROSA CON IL C64 

Marco Bucceri Francesco Davini 

Sfefania Deambrog i 
Sei un tipo romantico? Ti 
piacciono i romanzi? 

Il computer, attraverso un 
simpatico programma scritto per 
Commodore 64, collabora con 
te e con ... nella costruzione di 
un Vostro- "Romanzo rosa". 

Con floppy disk. 

Cod. CC230 Lire 40.000 


